%subplotplotter

for i=1:1
    subplot(1,1,i)
    hold on
    plot(bpm,d(:,i));
    axis([0.94*min(bpm) 1.05*max(bpm) 0.96*min(d(:,i)) 1.04*max(d(:,i))])
end 